home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / SysMsg.cpt / SysMsg / SysMsg V0.9a / card_2820.txt < prev    next >
Text File  |  1987-09-23  |  8KB  |  344 lines
  1. -- card: 2820 from stack: in.9a
  2. -- bmap block id: 3307
  3. -- flags: 4000
  4. -- background id: 2721
  5. -- name: thisCard
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11.  
  12. -- part 2 (button)
  13. -- low flags: 00
  14. -- high flags: A003
  15. -- rect: left=195 top=96 right=144 bottom=295
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Card Button
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   pass mouseUp
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 3 (field)
  32. -- low flags: 01
  33. -- high flags: 0007
  34. -- rect: left=308 top=77 right=310 bottom=486
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 3
  39. -- text size: 9
  40. -- style flags: 0
  41. -- line height: 12
  42. -- part name: whereField
  43.  
  44.  
  45. -- part 4 (field)
  46. -- low flags: 01
  47. -- high flags: 0004
  48. -- rect: left=26 top=127 right=175 bottom=219
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 3
  53. -- text size: 12
  54. -- style flags: 256
  55. -- line height: 16
  56. -- part name: Card Field
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   pass mouseUp
  60. end mouseUp
  61.  
  62.  
  63. -- part 7 (button)
  64. -- low flags: 00
  65. -- high flags: A000
  66. -- rect: left=309 top=310 right=324 bottom=486
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Clear
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   put empty into card field "whereField"
  78.   set scroll of card field "whereField" to 0
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 13 (button)
  84. -- low flags: 00
  85. -- high flags: 2000
  86. -- rect: left=226 top=184 right=238 bottom=286
  87. -- title width / last selected line: 65081
  88. -- icon id / first selected line: -15743 / 49793
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: RUN
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   global FREEZE
  98.   if FREEZE = false then
  99.     set icon of card button ID 13 to -15743
  100.     set name of card button ID 13 to "RUN"
  101.     put true into FREEZE
  102.     put return & "** [mouseUp] in STOP **" after last line of card field "whereField" of card "thisCard"
  103.     play boing
  104.   else
  105.     put false into FREEZE
  106.     put return & "** [mouseUp] in RUN **" after last line of card field "whereField" of card thisCard
  107.     set icon of card button ID 13 to -15744
  108.     set name of card button ID 13 to "STOP"
  109.   end if
  110. end mouseUp
  111.  
  112.  
  113.  
  114.  
  115. -- part 24 (button)
  116. -- low flags: 00
  117. -- high flags: E005
  118. -- rect: left=40 top=186 right=205 bottom=173
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Show no idles
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   global noIdle
  130.   if noIdle is false then
  131.     put true into noIdle
  132.     put return & "** [mouseUp] in" && short name of target && "**" after last line of card field "whereField" of card "thisCard"
  133.     play boing
  134.   else
  135.     put false into noIdle
  136.     put return & "** [mouseUp] in" && short name of target && "**" after last line of card field "whereField" of card thisCard
  137.   end if
  138. end mouseUp
  139.  
  140.  
  141. -- part 28 (field)
  142. -- low flags: 81
  143. -- high flags: 2004
  144. -- rect: left=103 top=96 right=167 bottom=245
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 0
  148. -- font id: 3
  149. -- text size: 10
  150. -- style flags: 0
  151. -- line height: 12
  152. -- part name: 
  153.  
  154.  
  155. -- part 29 (button)
  156. -- low flags: 00
  157. -- high flags: 0000
  158. -- rect: left=219 top=144 right=163 bottom=239
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 16692 / 16692
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: popUpBUTTON
  167. ----- HyperTalk script -----
  168. -- Charles M. Davis (23SEP87)
  169. on mouseUp
  170.   showMessage mouseUp
  171.   if visible of card field 3 is false then
  172.     show card field 3
  173.     set icon of card button ID 29 to 3584
  174.   else
  175.     hide card field 3
  176.     set icon of card button ID 29 to 16692
  177.   end if
  178. end mouseUp
  179.  
  180.  
  181.  
  182. -- part 35 (button)
  183. -- low flags: 00
  184. -- high flags: 0000
  185. -- rect: left=15 top=33 right=67 bottom=118
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: Message Tutorial
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   show card field ID 36
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 36 (field)
  202. -- low flags: 81
  203. -- high flags: 2004
  204. -- rect: left=3 top=25 right=133 bottom=290
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 0
  208. -- font id: 3
  209. -- text size: 10
  210. -- style flags: 0
  211. -- line height: 13
  212. -- part name: 
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   hide card field ID 36
  216. end mouseUp
  217.  
  218.  
  219. -- part 37 (button)
  220. -- low flags: 00
  221. -- high flags: 0000
  222. -- rect: left=73 top=242 right=278 bottom=108
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 1020 / 1020
  225. -- text alignment: 1
  226. -- font id: 0
  227. -- text size: 12
  228. -- style flags: 0
  229. -- line height: 16
  230. -- part name: goodQuestion
  231. ----- HyperTalk script -----
  232. on mouseUp
  233.   go card "Question card"
  234.   showMessage mouseUp
  235. end mouseUp
  236.  
  237.  
  238.  
  239. -- part 38 (field)
  240. -- low flags: 81
  241. -- high flags: 0004
  242. -- rect: left=3 top=22 right=340 bottom=506
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 0
  246. -- font id: 3
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: 
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   hide card field ID 38
  254. end mouseUp
  255.  
  256.  
  257. -- part 39 (button)
  258. -- low flags: 00
  259. -- high flags: 0001
  260. -- rect: left=166 top=273 right=323 bottom=230
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: opaque button
  269.  
  270.  
  271. -- part 42 (field)
  272. -- low flags: 81
  273. -- high flags: 2004
  274. -- rect: left=28 top=89 right=207 bottom=174
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 0
  278. -- font id: 3
  279. -- text size: 10
  280. -- style flags: 0
  281. -- line height: 13
  282. -- part name: 
  283.  
  284.  
  285. -- part 43 (button)
  286. -- low flags: 00
  287. -- high flags: 0000
  288. -- rect: left=146 top=180 right=199 bottom=166
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 16692 / 16692
  291. -- text alignment: 1
  292. -- font id: 0
  293. -- text size: 12
  294. -- style flags: 0
  295. -- line height: 16
  296. -- part name: popUpBUTTON
  297. ----- HyperTalk script -----
  298. -- Charles M. Davis (23SEP87)
  299. on mouseUp
  300.   showMessage mouseUp
  301.   if visible of card field ID 42 is false then
  302.     show card field ID 42
  303.     set icon of card button ID 43 to 3584
  304.   else
  305.     hide card field ID 42
  306.     set icon of card button ID 43 to 16692
  307.   end if
  308. end mouseUp
  309.  
  310.  
  311.  
  312. -- part contents for card part 4
  313. ----- text -----
  314.  
  315. Card Field
  316.  
  317.  
  318. -- part contents for card part 28
  319. ----- text -----
  320. When buttons and fields are layered on top of each other, mouse messages are sent only to the closest one.
  321.  
  322. -- part contents for card part 36
  323. ----- text -----
  324.   The idea for this stack came from the pages of APDA's new "HyperCard‚Ñ¢ Technical Reference Package".
  325.   Originally intended as a stack to help me better understand HyperCard's habit of sending messages everywhere, it can now be shared with you...
  326.                           Charles M. Davis
  327.                              (September 23, 1987 - V0.9)
  328.  
  329.  
  330.  
  331. -- part contents for card part 38
  332. ----- text -----
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342. -- part contents for card part 42
  343. ----- text -----
  344. Idle messages are sent to the currently open card repeatedly when nothing else is happening.  The display window won't change as frequently and be as cluttered if you 'Show no idles'.